home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Programming / tek / kn / elate / visual / drawrgb.asm < prev    next >
Encoding:
Assembly Source File  |  2001-05-12  |  1.4 KB  |  61 lines
  1.  
  2.     .include 'taort'
  3.     .include 'ave/toolkit/toolkit.inc'
  4.     .include 'lib/tek/kn/elate/visual.inc'
  5.  
  6. ;=============================================================================
  7. ;-----------------------------------------------------------------------------
  8. ; 
  9. ;    TEKlib
  10. ;    (C) 1999-2001 TEK neoscientists
  11. ;    all rights reserved.
  12. ;
  13. ;    extern void kn_drawrgb(TAPTR v, TUINT *buf, TINT x, TINT y, TINT w, TINT h, TINT totw)
  14. ;
  15. ;    TODO: if totw == w, use a single copy
  16. ;
  17. ;-----------------------------------------------------------------------------
  18. ;=============================================================================
  19.  
  20.     tool 'lib/tek/kn/visual/drawrgb',VP,TF_EMBED
  21.  
  22. ;-----------------------------------------------------------------------------
  23.  
  24.     ent p0 p1 i0 i1 i2 i3 i4 : -
  25.  
  26.     defbegin
  27.     defp visual,buffer
  28.     defi x,y,w,h,totw,over
  29.     defp dest
  30.  
  31.         cpy.i    [visual+vis_width]-x-w,over
  32.         bcp    over ge 0,_ok
  33.         add.i    over,w
  34.         bcn    w le 0,_raus
  35.         
  36. _ok:        cpy.i    [visual+vis_height]-y-h,over
  37.         bcp    over ge 0,_ok2
  38.         add.i    over,h
  39.         bcn    h le 0,_raus
  40. _ok2:
  41.         cpy.p    [visual+vis_buffer],dest
  42.         add.p    (x+(y*[visual+vis_width]))<<2,dest
  43.         cpy.i    totw<<2,totw
  44.         cpy.i    w<<2,w
  45.  
  46. _copy:        cpbi    buffer,dest,w
  47.         add.p    totw,buffer
  48.         add.p    [visual+vis_width]<<2,dest
  49.         dec.i    h
  50.         bcp    h gt 0,_copy
  51.  
  52. _raus:
  53.         ret
  54.  
  55.     defend
  56.  
  57.     toolend
  58.  
  59. ;-----------------------------------------------------------------------------
  60. ;=============================================================================
  61.